1 fo.
2 p.
p.
p.
p.
p. "                 Globe"
p. "               Compass"
p. "                   98"
fo.
p.
p.
p.
p.
p.
p.
p.
p. "          c. 1998 DaveSoft"

10 re. 25,50,138,200,0

15 re. 21,46,142,204,0

16 PAUSE

17 Cls

18.5 fo.

18.6 p. " Globe Compass 98   ";time$;" ?"

19 fo.

215 PRINT

220 re. 0,10,159,0,0
li. 150,1,158,9,0
li. 158,1,150,9,0
re. 0,10,149,0,0
re. 0,10,139,0,0
re. 0,10,111,0,0

230
ip.
x=posx
y=posy
IF x>150 THEN IF y>1 THEN IF x<158 THEN IF y<9 THEN b = 1
IF b=1 THEN GOTO 5000
IF x>140 THEN IF y>1 THEN IF x<148 THEN IF y<9 THEN b = 2
IF b=2 THEN GOTO 6000

240 p.

245 INPUT "Input Local time (in hrs.)";T

246 IF T=0 THEN Q=4

246.5 IF T=1 THEN Q=4

247 IF T=2 THEN Q=4

247.5 IF T=3 THEN Q=4

248 IF T=4 THEN Q=4

248.5 IF T=5 THEN Q=1

249 IF T=6 THEN Q=1

250 IF T=7 THEN Q=1

251 IF T=8 THEN Q=1

252 IF T=9 THEN Q=1

253 IF T=10 THEN Q=1

254 IF T=11 THEN Q=1

255 IF T=12 THEN Q=3

256 IF T=13 THEN Q=2

257 IF T=14 THEN Q=2

258 IF T=15 THEN Q=2

259 IF T=16 THEN Q=2

260 IF T=17 THEN Q=2

261 IF T=18 THEN Q=2

262 IF T=19 THEN Q=2

263 IF T=20 THEN Q=2

264 IF T=21 THEN Q=4

265 IF T=22 THEN Q=4

266 IF T=23 THEN Q=4

267 IF T=24 THEN Q=4

291 IF Q=1 THEN GOTO 1000

292 IF Q=2 THEN GOTO 2000

293 IF Q=3 THEN GOTO 2500

294 IF Q=4 THEN GOTO 3000

300 GOTO 4000


1000
p. 
p. "                  Sun^"
pa.
p.
p.
fo.
p. "                   E"
p.
p.
p.
p. "          N                S"
p.
p.
p. "                   W"
ci. 80,130,30,0
fo.
ip.
go. 4000

2000 
p. 
p. "                  Sun^"
pa.
p.
p.
fo.
p. "                   W"
p.
p.
p.
p. "          S                N"
p.
p.
p. "                   E"
ci. 80,130,30,0
fo.
ip.
g. 4000

2500
p. 
p. "The sun is directly"
p. "overhead. There is no"
p. "way to calculate North"
p. "or South."
g. 4000

3000 
p.
p. "Local time is between"
p. "9 pm and 4am. There is"
p. "no way to calculate"
p. "North or South."
g. 4000

4000
p.
p. "Thank you for using"
p. "Globe Compass 98"
p.
p. "c. 1998 DaveSoft"
e.

5000
c.
e.

6000

c.
p.
fo.
p. "Globe Compass Help"
fo.
p.
p. "Welcome to Globe Compass 99!"
p. "This program calculates North"
p. "from your local time and the"
p. "direction of the sun. If you"
p. "are unsure of the time, I have"
p. "provided a time window on the"
p. "toolbar."
pa.
g. 4000
